MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00971_Gestion des Appels aux Macros.ls

Text File | 1995-08-06 | 5.3 KB | 267 lines

on CallM NomMacro
  global DcTransit, DcDemo
  if DcDemo or DcTransit then
    return 0
  end if
  GestDemoRec(NomMacro)
  do(NomMacro)
  resetComptScrSaver()
  return 1
end

on CallMpPara NomMacro, Parametre
  global DcTransit, DcDemo
  if DcDemo or DcTransit then
    return 0
  end if
  set NbrPara to paramCount()
  if NbrPara < 3 then
    set NomMacro to NomMacro & "(" & QUOTE & Parametre & QUOTE & ")"
  else
    set NomMacro to NomMacro & "(" & QUOTE & param(2) & QUOTE
    repeat with compt = 3 to NbrPara
      set NomMacro to NomMacro & "," & QUOTE & param(compt) & QUOTE
    end repeat
    set NomMacro to NomMacro & ")"
  end if
  GestDemoRec(NomMacro)
  do(NomMacro)
  resetComptScrSaver()
  return 1
end

on GoTo Colonne
  go(Colonne)
end

on GoMarker Colonne
  go(marker(Colonne))
end

on GoFrame NomFrame
  go(NomFrame)
end

on GoMovie NomAnim
  set NumFrame to EMPTY
  GoMovieRepere(NomAnim, NumFrame)
end

on GoMovieRepere NomAnim, NumFrame
  global NameExt, DcAnimDetour, MemoAnimDetour
  RestoreVolume()
  InitSortieAnim()
  set NomAnim to MakeSeparator(NomAnim)
  set FichierPropre to MakeNomPropre(NomAnim)
  set NumFrame to TraitFrameAsk(NumFrame)
  if (FichierPropre & NameExt) = MakeNomPropre(the movie) then
    InitCastRollEff()
    if NumFrame = EMPTY then
      go(1)
    else
      go(NumFrame)
    end if
    exit
  end if
  set NomAnim to NomAnim & NameExt
  if (DcAnimDetour <> "#") or (MemoAnimDetour <> "#") then
    set AccuA to TraitDetour(NomAnim, NumFrame)
    set NomAnim to word 1 of AccuA
    set NumFrame to word 2 of AccuA
    set NumFrame to TraitFrameAsk(NumFrame)
  end if
  MacrosFinAnim()
  if MakeNomPropre(NomAnim) = MakeNomPropre(the movie) then
    InitCastRollEff()
    if NumFrame = EMPTY then
      go(1)
    else
      go(NumFrame)
    end if
    exit
  end if
  MacrosQuitteAnim()
  if NumFrame = EMPTY then
    go(1, NomAnim)
  else
    go(NumFrame, NomAnim)
  end if
end

on TraitFrameAsk NomFrame
  global MacroFrameAsk
  set MacroFrameAsk to EMPTY
  if stringp(NomFrame) = 0 then
    return NomFrame
  end if
  if NomFrame = "#" then
    return EMPTY
  end if
  set posSepa to offset("#", NomFrame)
  if posSepa = 0 then
    return NomFrame
  end if
  set MacroFrameAsk to chars(NomFrame, posSepa + 1, length(NomFrame))
  return chars(NomFrame, 1, posSepa - 1)
end

on SetDcAnimDetour AccuA
  global DcAnimDetour
  set DcAnimDetour to AccuA
end

on AnnuleDcAnimDetour
  global DcAnimDetour
  set DcAnimDetour to "#"
end

on AnnuleMemoAnimDetour
  global MemoAnimDetour
  set MemoAnimDetour to "#"
end

on TraitDetour NomFichier, NumFrame
  global DcAnimDetour, MemoAnimDetour
  if DcAnimDetour <> "#" then
    GestDetour(NomFichier, NumFrame)
  else
    GestRetour()
  end if
  return the result
end

on GestDetour NomFichier, NumFrame
  global DcAnimDetour, MemoAnimDetour, NameExt
  set MemoAnimDetour to NomFichier & " " & NumFrame
  set NomFichier to word 1 of DcAnimDetour
  set NumFrame to word 2 of DcAnimDetour
  set NomFichier to MakeSeparator(NomFichier) & NameExt
  set NomFichier to MakeNomPropre(NomFichier)
  set DcAnimDetour to "#"
  return NomFichier & " " & NumFrame
end

on GestRetour
  global DcAnimDetour, MemoAnimDetour
  set NomFichier to word 1 of MemoAnimDetour
  set NumFrame to word 2 of MemoAnimDetour
  set MemoAnimDetour to "#"
  return NomFichier & " " & NumFrame
end

on SetMacroFrame AccuA
  global MacroFrame
  set MacroFrame to AccuA
end

on SkipMacroFrame
  global MacroFrame
  set MacroFrame to "Nothing"
end

on AllMacroFrame
  global MacroFrame
  set MacroFrame to "AllMacro"
end

on AllMacro
  global DcMacroVar
  GestTransit()
  CoupeSonQ()
  GestSoundCast()
  GestKeepSound()
  GestDemo()
  MacroPlus()
  do(DcMacroVar)
  GestBarreRoll()
  JumpWait()
  GestScrSaver()
end

on SetDcMacroVar AccuA
  global DcMacroVar
  set DcMacroVar to AccuA
end

on AnnuleMacroVar
  global DcMacroVar
  set DcMacroVar to "Nothing"
end

on DoMacroVar
  global DcMacroVar
  do(DcMacroVar)
end

on SetMacroEnd AccuA
  global DcMacroEnd
  set DcMacroEnd to AccuA
end

on AnnuleMacroEnd
  global DcMacroEnd
  set DcMacroEnd to "Nothing"
end

on DoMacroEnd
  global DcMacroEnd
  set NomMacro to DcMacroEnd
  set DcMacroEnd to "Nothing"
  do(NomMacro)
end

on AffMessAttente
  global SprFondBar, CastBarrette, SprRollOver, CastPatientez
  cursor(4)
  if the castNum of sprite SprFondBar = CastBarrette then
    SetAffTxtRoll(CastPatientez)
    set the castNum of sprite SprRollOver to CastPatientez
  end if
  updateStage()
end

on RestoreCursor
  global SprFondBar, CastBarrette, SprRollOver, CastRollEff
  cursor(-1)
  if the castNum of sprite SprFondBar = CastBarrette then
    SetAffTxtRoll(CastRollEff)
    set the castNum of sprite SprRollOver to CastRollEff
  end if
  updateStage()
end

on UnLoadReste
  updateStage()
  unLoadCast(855)
  unLoadCast(856, 858)
  unLoadCast(859, 864)
  unLoadCast(865, 871)
  unLoadCast(872, 879)
  unLoadCast(872, 879)
  unLoadCast(880, 887)
  unLoadCast(888, 898)
  unLoadCast(899, 906)
  unLoadCast(899, 906)
  unLoadCast(951)
end

on PM
  updateStage()
  unLoadCast(1, 49)
  unLoadCast(50, 99)
  unLoadCast(100, 149)
  unLoadCast(150, 199)
  unLoadCast(200, 249)
  unLoadCast(250, 299)
  unLoadCast(300, 349)
  unLoadCast(350, 399)
  unLoadCast(400, 449)
  unLoadCast(450, 499)
  unLoadCast(500, 549)
  unLoadCast(550, 599)
  unLoadCast(600, 649)
  unLoadCast(650, 699)
  updateStage()
  UnLoadReste()
end